home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 35 / Digital_Talk_35_19xx_Digital_Talk_de_Side_B.d64 / space crash (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  10KB  |  240 lines
  1. 0 v=53248:poke2040,11:poke2041,13:poke2042,14:pokev+40,1:pokev+41,1:pokev+29,15
  2. 1 fori=704to766:reada:pokei,a:next:pokev,144:pokev+1,0:poke808,225:poke788,52
  3. 2 fori=832to894:reada:pokei,a:next:v=53248:pokev+21,3:pokev+2,148:pokev+3,0
  4. 3 fori=896to958:reada:pokei,a:next:v=53248:pokev+21,7:pokev+4,196:pokev+5,0
  5. 4 data63,255,252,63,255,252,0,0,24,59,247,216
  6. 5 data59,247,216,56,48,24,56,48,24,59,55,216
  7. 6 data59,55,216,59,48,216,59,48,216,56,0,0
  8. 7 data63,255,252,63,255,252,0,0,0,0,0,0
  9. 8 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  10. 9 data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  11. 10 data 0, 0, 0, 0, 0, 0, 0, 0, 0, 255, 255, 255
  12. 11 data 255, 255, 255, 0, 0, 0, 254, 254, 255, 254, 254, 255
  13. 12 data 6, 6, 3, 6, 6, 3, 254, 254, 255, 198, 216, 195
  14. 13 data 254, 204, 195, 254, 198, 195, 0, 0, 0, 255, 255, 255
  15. 14 data 255 , 255 , 255
  16. 15 data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  17. 16 data 0, 0, 0, 0, 0, 0, 0, 0, 238, 255, 248, 170
  18. 17 data 255, 248, 238, 112, 0, 42, 118, 24, 238, 119, 24, 0
  19. 18 data 119, 152, 0, 119, 216, 0, 118, 248, 0, 118, 120, 0
  20. 19 data 118, 56, 0, 118, 24, 0, 112, 0, 0, 255, 248, 0
  21. 20 data 255,248,0
  22. 21 data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  23. 22 data 0, 0, 0, 237, 219, 186, 169, 82, 171, 169, 219, 170
  24. 23 data 169, 10, 42, 233, 219, 171, 128, 0, 0, 191, 255, 255
  25. 24 data 128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  26. 25 data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  27. 26 data 0 , 0 , 0
  28. 27 fori=960to1022:reada:pokei,a:next:pokev+42,7:pokev+6,163:poke2043,15
  29. 28 rem     lost brain in 1998
  30. 29 poke53281,0:poke53280,0:print"[147]":forl=39000to39100:pokel,1:next
  31. 30 fort=34816to34816+140:reada:poket,a:next
  32. 31 data 169,0,133,9,169,4,133,10,169,0,133,16,169,216,133
  33. 32 data 17,162,0,232,224,26,144,1,96,189,88,152,240,87,201
  34. 33 data 1,208,43,160,0,177,9,133,2,177,16,133,12,200,192
  35. 34 data 40,176,15,177,9,136,145,9,200,177,16,136,145,16,200
  36. 35 data 76,43,136,160,39,165,2,145,9,165,12,145,16,76,116
  37. 36 data 136,160,39,177,9,133,2,177,16,133,12,136,192,254,176
  38. 37 data 15,177,9,200,145,9,136,177,16,200,145,16,136,76,86
  39. 38 data 136,160,0,165,2,145,9,165,12,145,16,24,165,9,105
  40. 39 data 40,144,2,230,10,133,9,24,165,16,105,40,144,2,230
  41. 40 data 17,133,16,76,18,136
  42. 41 i=int(23*rnd(1))+1:poke214,i:i=int(39*rnd(1))+1:poke211,i:sys58640
  43. 42 print".":c=c+1:ifc<60then41
  44. 43 pokev+21,15:sys34816:rem hier gehts los
  45. 44 fort=0to120:pokev+1,t:pokev+3,(250-t):pokev+5,(250-t):sys34816:next:y=255
  46. 45 sys34816:y=y-1:pokev+7,y:ify>163thengoto45
  47. 46 x=x+2:ifx<>14thenpokev+39,x:pokev+40,x:pokev+41,x:sys34816:goto46
  48. 47 geta$:ifa$=""thenx=0:goto46
  49. 48 print"[147]":pokev+21,0:x=-1
  50. 50 x=x+1
  51. 51 ifx<>49then print"[147]"x:print"[144]x="x":goto50":goto12001
  52. 99 pokev+21,0:rem ab 100 das programm...
  53. 100 print"[147]        bitte noch einen moment!":poke53280,0:poke53281,0
  54. 101 poke808,225
  55. 102 poke775,1
  56. 103 v=53248:fori=704to766:reada:pokei,a:nexti
  57. 104 fori=832to894:reada:pokei,a:nexti
  58. 105 pokev+28,1
  59. 106 poke2040,11:poke2041,13:poke2042,13:poke2043,13
  60. 107 poke53280,0:poke53281,0:v=53248:gosub248
  61. 108 print "[147]":poke53272,22:poke53270,200
  62. 109 f=0:gosub112:f=11:gosub112:f=12:gosub112:f=15:gosub112:f=1:gosub112
  63. 110 fort=0to600:nextt
  64. 111 f=15:gosub112:f=12:gosub112:f=11:gosub112:f=0:gosub112:goto114
  65. 112 poke211,4:poke214,12:sys58640:poke646,f
  66. 113 print"[204]ost [194]rain is proud to presents:":fort=0to100:nextt:return
  67. 114 printchr$(142):poke53272,29
  68. 115 poke53270,peek(53270)and239or16:poke53272,29:poke198,0
  69. 116 print"[149][147]    aaaaaaaaaaaaaaaaaaaaaaaaaaaaa[146]   ":poke53280,0:poke53281,0
  70. 117 print"    [150]a[146][158]                                [150] ";
  71. 118 print"[158]      [150]a[146][158]      [150]aaaa[146][158]  [150]aaaa[146][158]  [150]aaaa[146][158]  [150]aaaa[146][158]   [150]  ";
  72. 119 print"[158]      [150]aaaaa[146][158]  [150] [158]  [150]a[146][158]  [150] [158]  [150]a[146][158]  [150]a[146][158]     [150] [158]        ";
  73. 120 print"          [150]a[146][158]  [150]aaaa[146][158]  [150]aaaa[146][158]  [150]a[146][158]     [150]aaa[146][158]  [150]    ";
  74. 121 print"[158]          [150]a[146][158]  [150]a[146][158]     [150]a[146][158]  [150]a[146][158]  [150]a[146][158]     [150]a[146][158]       [150] ";
  75. 122 print"[158]      [150]aaaaa[146][158]  [150]a[146][158]     [150]a[146][158]  [150]a[146][158]  [150]aaaa[146][158]  [150]aaaa[146][158]    [150] ";
  76. 123 print"[158]                                        ";
  77. 124 print"                                        ";
  78. 125 print"      [150]aaaaaaaaaaaaaaaaaaaaaaaaaaaaa[146][158]     ";
  79. 126 print"      [150]a[146][158]                                 ";
  80. 127 print"      [150]a[146][158]     [150]aaaa[146][158]  [150]aaaa[146][158]  [150]aaaa[146][158]  [150]a[146][158]   [150]a[146][158]     ";
  81. 128 print"      [150]a[146][158]     [150] [158]  [150]a[146][158]  [150] [158]  [150]a[146][158]        [150]a[146][158]   [150]a[146][158]     ";
  82. 129 print"      [150]a[146][158]     [150]aaaa[146][158]  [150]aaaa[146][158]  [150]aaaa[146][158]  [150]aaaaa[146][158]     ";
  83. 130 print"      [150]a[146][158]     [150]a[146][158] [150]a[146][158]   [150]a[146][158]  [150]a[146][158]     [150]a[146][158]  [150]a[146][158]   [150]a[146][158]     ";
  84. 131 print"      [150]aaaa[146][158]  [150]a[146][158]  [150]a[146][158]  [150]a[146][158]  [150]a[146][158]  [150]aaaa[146][158]  [150]a[146][158]   [150]a[146][158]     ";
  85. 132 rem   print"                                        ";
  86. 133 rem  print"                                        ";
  87. 134 print"                                        ";
  88. 135 print"       >[158] >[149]  save our universe  <[158] <[158]      ";
  89. 136 print"[158]                                        ";
  90. 137 print"                                        ";
  91. 138 print"        (@) by lost brain in 1998[158]       ";
  92. 139 print"[158]                                        ";
  93. 140 print"         press space to start !!       ":gosub237
  94. 141 v=53248:pokev+37,6:pokev+40,5:pokev+41,5:pokev+42,5:pokev+23,14:pokev+29,14
  95. 142 poke2040,11:poke2041,13:poke2042,13:poke2043,13:pokev+38,1:pokev+39,8
  96. 143 pokev+28,1:poke53270,200:poke53272,21
  97. 144 a$="         [211]omewhere in space....       ":gosub205:geta$:ifa$=" "then155
  98. 145 a$="   [201]n the deep world of darkness...   ":gosub205:geta$:ifa$=" "then155
  99. 146 a$="    [211]omething cruelful happened...    ":gosub205:geta$:ifa$=" "then155
  100. 147 a$="     [193]n old asteroid exploded ...     ":gosub205:geta$:ifa$=" "then155
  101. 148 a$="    [211]o youre [211]tation is in danger!    ":gosub205:geta$:ifa$=" "then155
  102. 149 a$="    [217]ou were choosen to save it...    ":gosub205:geta$:ifa$=" "then155
  103. 150 a$="   [211]ave all of youre transporters!!   ":gosub205:geta$:ifa$=" "then155
  104. 151 a$="     [211]hoot all coming up rocks !!!    ":gosub205:geta$:ifa$=" "then155
  105. 152 a$="  [194]ut be careful! [193]void the rocks !!  ":gosub205:geta$:ifa$=" "then155
  106. 153 a$="  [212]his could be youre last flight !!  ":gosub205:geta$:ifa$=" "then155
  107. 154 a$="  [199]ood [204]uck, fasten youre seetbelt !  ":gosub205:geta$:ifa$=" "then155
  108. 155 v=53248:pokev,40:pokev+1,100:pokev+2,50:pokev+3,50:pokev+4,130
  109. 156 pokev+5,50:pokev+6,210:pokev+7,50
  110. 157 print"[147]            [158]  [211]kill  [204]evel  ":print:print
  111. 158 print"                 [210]ookie":print
  112. 159 print"                 [206]ormal":print
  113. 160 print"                 [197]xpert":print
  114. 161 geta$:ifa$="r"thenz1=12:goto165
  115. 162 ifa$="n"thenz1=8:goto165
  116. 163 ifa$="e"thenz1=4:goto165
  117. 164 goto161
  118. 165 a$="       [198]ire to start, [195]ommander !     ":gosub212:pokev+21,15:print"[147]"
  119. 166 poke646,9:poke53272,29:poke(v+31),0:poke214,24:sys58640:q=15:g=30
  120. 167 a=0:l=3
  121. 168 j=peek(56320):x=56:j=peek(56320):k=peek(v+31)
  122. 169 rem >>> wiederhohlungsschleife <<<
  123. 170 j=peek(56320):poke(v+31),0
  124. 171 ifj=123andx>40thenx=x-8:pokev,x
  125. 172 ifj=119andx<248thenx=x+8:pokev,x
  126. 173 ifj=111then176
  127. 174 z=z+1:ifz=z1thenz=0:m=int(g*rnd(1))+3:printtab(m)"^":ifpeek(v+31)>0then181
  128. 175 goto170
  129. 176 y1=8:x1=(x/8-2):
  130. 177 gosub263:y1=y1+1:ify1=24thengosub269:goto170
  131. 178 sh=1024+x1+40*y1:fh=55296+x1+40*(y1+1):ifpeek(sh)<>32then180
  132. 179 poke(fh-40),1:poke(sh),31:poke(fh),1:poke(sh),32:goto177
  133. 180 a=a+1:poke(sh),32:gosub257:goto170
  134. 181 print"[147]":poke214,24:sys58640
  135. 182 l=l-1:gosub270:ifl=2thenpokev+21,7:g=18:z1=z1/2:goto170
  136. 183 ifl=1thenpokev+21,3:g=8:z1=z1/2:goto170
  137. 184 ifl=0then185
  138. 185 poke53272,21:print"[147]":pokev+21,0:print"      [217]ou shoot"a"asteroids!"
  139. 186 gosub400:fort=0to600:nextt
  140. 187 ifa>p(1)then 200
  141. 188 ifa>p(2)then202
  142. 189 ifa>p(3)then204
  143. 190 print"[153][147]            [200]ighscore forever  ":print"":fori=1to3
  144. 191 poke211,10:sys58640:print"[154]> [158]"b$(i);:poke211,28:sys58640:print":"p(i)
  145. 192 next:print"[151]                                     "
  146. 193 print"            [208]rogrammers [195]redits":print
  147. 194 print"        [199]rafix by  [205]arcus [200]inzmann"
  148. 195 print"        [201]dea by    [205]arcus [200]inzmann"
  149. 196 print"        [195]oded by   [205]arcus [200]inzmann"
  150. 197 print"        [211]ounds by  [205]arcus [200]inzmann"
  151. 198 print"        [211]prites by [205]arcus [200]inzmann"
  152. 199 gosub300:poke198,0:wait198,1:goto115
  153. 200 b$(3)=b$(2):b$(2)=b$(1):p(3)=p(2):p(2)=p(1):p(1)=a
  154. 201 input"[147][201]hr [206]ame";b$(1):goto190
  155. 202 b$(3)=b$(2):p(3)=p(2):p(2)=a
  156. 203 input"[147][201]hr [206]ame";b$(2):goto190
  157. 204 input"[147][201]hr [206]ame";b$(3):p(3)=a           :goto190
  158. 205 print"[147]"
  159. 206 f=0:gosub210:f=11:gosub210:f=12:gosub210:f=15:gosub210:f=1:gosub210
  160. 207 fort=0to600:nextt
  161. 208 f=15:gosub210:f=12:gosub210:f=11:gosub210:f=0:gosub210:
  162. 209 fort=0to1000:nextt:return
  163. 210 poke211,1:poke214,12:sys58640:poke646,f
  164. 211 printa$:fort=0to50:nextt:return
  165. 212 print"[147]"
  166. 213 f=0:gosub217:f=11:gosub217:f=12:gosub217:f=15:gosub217:f=1:gosub217
  167. 214 wait56320,16,16
  168. 215 f=15:gosub217:f=12:gosub217:f=11:gosub217:f=0:gosub217:
  169. 216 fort=0to500:nextt:return
  170. 217 poke211,1:poke214,12:sys58640:poke646,f
  171. 218 printa$:fort=0to50:nextt:return
  172. 219 rem** kleines raumschiff sprite **
  173. 220 data1,0,64,65,0,65,65,65,65,81,85,69
  174. 221 data90,170,165,90,255,165,91,170,229,26,190,164
  175. 222 data26,235,164,10,170,160,2,170,128,2,190,128
  176. 223 data0,170,0,0,190,0,0,170,0,0,190,0
  177. 224 data0,170,0,0,190,0,0,170,0,0,170,0
  178. 225 data0,40,0
  179. 226 rem       mutterschiffsprite
  180. 227 data28,56,0,2,64,0,31,248,0,24,140,0
  181. 228 data 63,126,0,56,143,0,55,247,128,63,255,192
  182. 229 data60,3,224,252,1,240,252,0,248,60,0,124
  183. 230 data254,0,62,255,0,31,63,255,255,63,255,255
  184. 231 data31,255,254,31,255,254,16,161,66,17,255,226
  185. 232 data57,82,167
  186. 233 rem        neue zeichen
  187. 234 data 60,66,153,161,153,66,60,0:rem          ^^ copyrightzeichen ^^
  188. 235 data 44,54,223,251,61,223,116,44:rem           ^^ felsen ^^
  189. 236 data 0,0,66,90,90,60,24,0:rem                  ^^ schuesse ^^
  190. 237 a=0
  191. 238 fort=0to55:nextt:geta$:ifa$=" "then141
  192. 239 ifa=0thena=1:poke53282,0:fort=0to60:nextt:goto238
  193. 240 ifa=1thena=2:poke53282,11:goto238
  194. 241 ifa=2thena=3:poke53282,12:goto238
  195. 242 ifa=3thena=4:poke53282,15:goto238
  196. 243 ifa=4thena=6:poke53282,7:goto238
  197. 244 ifa=5thena=6:poke53282,10:goto238
  198. 245 ifa=6thena=7:poke53282,15:goto238
  199. 246 ifa=7thena=8:poke53282,12:goto238
  200. 247 ifa=8thena=0:poke53282,11:goto238
  201. 248 rem         neue zeichen
  202. 249 poke53280,0:poke53281,0
  203. 250 poke56334,peek(56334)and 254:poke1,peek(1)and251
  204. 251 fort=0to2047:poke12288+t,peek(53248+t):nextt
  205. 252 poke1,peek(1)or4:poke56334,peek(56334)or1:poke53272,29
  206. 253 fori=13320to13320+7:pokei,85:next
  207. 254 fori=12288to12288+7:reada:pokei,a:next
  208. 255 fori=12528to12528+7:reada:pokei,a:next
  209. 256 fori=12536to12536+7:reada:pokei,a:next:return
  210. 257 s=54272
  211. 258 poke s+24,15
  212. 259 poke s+5,9
  213. 260 poke s+1,2
  214. 261 poke s+4,128
  215. 262 poke s+4,129:return
  216. 263 s=54272
  217. 264 poke s+24,(y1*0.5)
  218. 265 poke s+5,22
  219. 266 poke s+1,y1*10
  220. 267 poke s+4,128
  221. 268 poke s+4,129:return
  222. 269 fort=0to24:pokes+t,0:next:return
  223. 270 s=54272:fort=0to15:i=int(10*rnd(1))+1:poke53280,i:goto274
  224. 271 ifpeek(v+31)=2orpeek(v+31)=6orpeek(v+31)=10then pokev+40,i:
  225. 272 ifpeek(v+31)=4orpeek(v+31)=6orpeek(v+31)=12then pokev+41,i:
  226. 273 ifpeek(v+31)=8orpeek(v+31)=10orpeek(v+31)=12then pokev+42,i
  227. 274 poke s+24,15
  228. 275 poke s+5,12
  229. 276 poke s+1,i*20
  230. 277 poke s+4,128:
  231. 278 poke s+4,129:nextt:poke53280,0:return
  232. 300 open15,8,15,"s:high,s":close15:open1,8,2,"high,s,w":print#1,b$(1)
  233. 301 print#1,b$(2):print#1,b$(3):print#1,p(1):print#1,p(2):print#1,p(3):close1
  234. 302 return
  235. 400 open1,8,2,"high,s,r":input#1,b$(1)
  236. 401 input#1,b$(2):input#1,b$(3):input#1,p(1):input#1,p(2):input#1,p(3):close1
  237. 402 return
  238. 12000 end
  239. 12001 poke631,19:poke632,13:poke633,13:poke198,3
  240.